﻿Imports extranet.BC
Imports extranet.BE
Partial Class verNoticia
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim noticia As Noticia = New Noticia()
    If Not IsPostBack Then
      noticia.Id = Integer.Parse(Request("idNoticia"))
      noticia = BCNoticia.Selecionar(noticia.Id)
      dataPostagem.Text = noticia.DataPostagem.ToString
      imagem.ImageUrl = "imagens/noticias/" & noticia.NomeImagem
      titulo.Text = noticia.Titulo
      corpo.Text = noticia.Corpo
    End If
  End Sub

End Class
